type TTest = class(TObject,